RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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-Sep-1 RUNOFF. OuT 8 


ya 
LIN.BLI; (1) 


ZTITLE ‘direc te 9 


ut or von 80 f TSF° 
MODULE OUTLIN 


out 

DENT = 

LIss32c, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES] 


Sans 


a a a at a a SS Ss Ss SS Ss Ss A OOOOO 
- 
ae 
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BEGIN 


RETEST TST S TTT S TTT TST TTT iT irri iri iii rir ii iii ii ii iii iii titiiisiiiiiiiiy 


'@ 

ie COPYRIGHT (c) 1978 1990. 1982, 1984 B 

ie DIGITAL EQUIPMENT EoRPORAT TION, MAYHAR. MASSACHUSETTS. 
i ALL RIGHTS RESERVED. 

it re i hth fs eruitee uct A LICENSE AND MAY BE USED AND tag 
iw ONLY IN ACCORDANCE WITH THE No ; OF SUCH hat a AND WITH THE 
'® INCLUSION OF tHE ABOVE Sg OTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF oY NOT BE PROV IDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
w 
oa 
® 
® 
& 
® 
TRANSFERRED. : 
® 
® 
® 
® 
* 
® 
® 
® 
® 
* 


oooo 
Sssss 
—OOOnNOouw 


Coooo0oo 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
7” ry art he NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'e POR 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


oooooooo 


SSsosooee 
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WN OS OONAVUESWN $$ O OONOUS WN SO OONOULS wT 


00 i eeeeeeereeeeeeeeeeeeneeeeeeeeeereeeeetereeeeteeeeeeeneneeeeeneeeeeeeeeeeees 
00 i 
60 !e¢ 

0 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

03 ABSTRACT: 

Bos : Either saves information described by TSF or causes it to 

Ons } be output immediately. 

0 i ENVIRONMENT: Transportable 

004 


i AUTHOR: R.W.Friday CREATION DATE: May, 1978 
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3; § : 1 SSBTTL ieevgaton History’ 

3 ? i MODIFIED 

; $8 : 1/ 019 KAD00019 Keith Dawson 9-May-1983 

; re ! Remove support for .DX, .PX. 

> 51 1 018 REROOO18 Ron Randall 20-Mar-1983 

3 ¢ : For DSRPLUS: Added code for topnotes. 

: 4 é 1 / 017 KAD00017 Ketgh Dawson 0-Mar-1983 

3 5 41! Removed LNO1 Pte tionals and all references to .BIX 

3 § 5 ! and .BIC fil 

; 8 : 1! 016 KAD00016 Keith Dawson 07-Mar-1983 

5 9 58 1 Global edit of all modules. Updated module names, idents, 
; 60 2966 os copyright dates. Changed require files to BLISS library. 
: 62 061 1 


ee | 
NO 
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12 
cts anne or aove of TSF 16-Se 
Declarations 14-Se 


SSBTTL "Module Level Declarations’ 

TABLE OF CONTENTS: 

FORWARD ROUTINE 
OUTLIN : 
OUTCRG : NOVALUE, 
OUTJ : 


vo 


71986 93:69:85 — ERUNoFFeSRESOUTLINBLI 71 te 


OQUTNJ : 
OUTPAS : NOVALUE; 
INCLUDE FILES: 


RARY ‘NXPORT:XPORT'; ! XPORT Library 
UIRE "REQ:RNODEF'; ! RUNOFF variant definitions 


18 
EQ 
IF DSRPLUS ZTHEN 

oe *REQ:DPLLIB'; ! DSRPLUS BLISS Library 
IB 

FI 


SE 
RARY ‘REQ:DSRLIB'; ! DSR BLISS Library 


-  serserse wr 


; EXTERNAL REFERENCES: 


DSRPLUS ZTHEN 


ZIF 
EXTERNAL 


EXTERNAL ROUTINE 
TNF IL; 


EXTERNAL LITERAL 
RNFCJL, 
RNFLOC; 


EXTERNAL ROUTINE 
endwrd, erm, foofil, lout, 


1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 utndy, uttxt, scl, unpus; 
' 4! puour: 4 
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sma att a" IERIE FUGRE table best Mrs rae 


Zsbttl ‘OUTLIN -- pyteys ful MRA.' 
GLOBAL ROUTINE outlin (justify) : NOVALUE = 


14 

: FUNCTIONAL DESCRIPTION: 

i OUTLIN is called when MRA is full, and the text should be output. It 

! routes normal text lines directly to LOUT, for output. Other records 

} are passed to other ereqessers. For example, footnote records get 

; saved in the footnote file, topnote records get saved in the topnote 

file, and indexing records get sent to the indexing routines. 

! FORMAL PARAMETERS: 

; justify - Indicates whether or not the Line should be justified. 

| IMPLICIT INPUTS: None 

! IMPLICIT OUTPUTS: None 

i ROUTINE VALUE: 

COMPLETION CODES: None 

SIDE EFFECTS: None 

BEGIN 
IF .TSF_INDEX ! Is this TSF something for the index? 
OR .TSF_BTC ! Is this TSF something for the table of contents? 
ecsin ! This record describes an index or table of contents entry 

IADDR, ' Address of text (as opposed to CHS$PTR) 
INT_HL, ! Internal length of text. 
IPTR; ! CHSPTR to the text. 


INT_HL = .TSF_INT_HL; ' Save internal length of text. 
IPTR = .FS_START(MRA); i Save pointer to text. 
IADDR = (.FS_START (MRA) )<0, 3BPADDR , 0> + ZBLISS(BLISS36); 


TSF_LINES = 0; ! This does not generate any text. 
TIF DSRPLUS THEN 
i Direct indexing and table of contents inforration from the topnote 


! to the topnote file. Such information from the main body of the 
document goes directly to the processing routine. 


if - TN_COLLECTING ! If collecting topnotes, 
TNFIL (TN_WRITE) ! save information in topnote file. 
BEGIN 


S2 


ENDED DIDI at td i kk tk td 0 dd 


_ 
MIAO NINPOPINIPININIDY) 3 9 SH DOOSOOOOOOCOOOD BESS SSS SS SSP SSeS S — 


cc 


! Direct indexing and table of contents information from the footnote 
! to the footnote file. Such information from the main body of the 
} document goes directly to the processing routine. 


if .FNCT_COLLECTING ! If collecting footnotes, 
$ FOOFIL (FOO_WRIT) ! save information in footnote file. 
BEGIN 


! If user wants to debug the index or table of contents, 
! regurgitate the information. 
IF (NOT .GCA_SKIP_OUT) 
THEN 
BEGIN 
! User wants to see information on this document page. 
IF .GCA_DEBUG_ INDEX 
- AND~. TSF _INDEX 


! Echo an index entry. 
UNPUS (0) 


BEGIN 


IF DEBUG. TOC 


-GCA_ 
AND~. TSF_6TC 


' Echo a table of contents entry. 
UNPUS (1); 


END; 
END; 
! Send index en 


tries 
! said /INTERMEDIATE. 
4H IF NOT .GCA_BIX 


4 HEN 
i IF .TSF_INDEX 
33 XOUT (.INT_HL, .IPTR, .TSF_FIRST_XTN, .TSF_H_BARS); 
{i gcace.bix AND .tsf_index) 
putndy (.int hl, .iaddr, .tsf_first_xtn, .tsf_h_bars); 


' Send table of contents records to the intermediate file. 
it get ote 


puttxt (.int_hl, .iptr, .tsf_major, .tsf_minor); 
END; 
ZIF DSRPLUS XTHEN 
ND; 
xf 


WANA AAA AAA AA AAW AAA AAA AAMWHAIAAI 


WANA WWI 


to the intermediate file, only if the user 


SOA BS BS BB BBB IB BB BBB EF BNI AAA AAD MMs UE NNN 


DOGOOGOOSOOSOCOOSOOOSOSOSCOOOSOOOSOSSOOOSOCOOCSOOOOOCOOOOOOOOOOOOOOOOOO Oa 
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W 12 | ae 
Bar IEREIBE THGHSGWGAPAPMRNGHRNGSRTSE PH 


Ouran direct 1 Bliss- 
v04-000 OUTLIN == output full MRA. p- RUNOFF ..SRCJO (4) 
; 3 0 

3 4 1 RETURN; 

; 5 § END; 

; ; 64 2 I+ 

; 5 é3 This is a record full of ‘'normal’’ text to be output. 

: 240 4 

; 41 U o8 ZIF DSRPLUS ZTHEN 

: 4g ; 8 31 Md Dad » TN_EXPANDING ! Expanding topnotes? 

; ad U i ed BEGIN 

: 246 7 

: rt 4 8 eR fen -FNCT_EXPANDING ! Expanding footnotes? 

> 249 0 ug ! Set up justification for all Lines except those that are 

3 20 037 ! oe tne fetched from the footnote file. For these records, 

3; 251 0378 ! the information was computed before they were written to 

; 26 hT44 ! the Feetnete temporary file. 

: 254 O38) TSF_JUSTIFY = .JUSTIFY; 

3 209 0 a¢ TSF-JUST_ALG = .TSF_JUST_ALG + 1; ! Justification algorithm feedback for next time. 
; 256 6 8 TSF-PADDING = .SCATRM -".TSF_EXT_HL; | Space count for padding. 
; 2 Se END; 

; 9 : 0 86 XIF DSRPLUS 3THEN 

; 3 y 5 He IF am, TN_COLLECTING 

; 8 ¥ 0390 —_— 

; 039 

3 4] 0394 IF .TSF_PADDING LSS 0 AND NOT .FNCT_COLLECTING 

; 85 $398 THEN BEGIN 

: 270 399 ! This can happen only if a word is encountered that does 

3 eri 398 !' not fit onto the Line between the margins. It can also 

3 Le: 399 ! happen as a side effect of breaking a word that does not 

; 27 400 ! fit in TSF (see ENDCHR, where this is done). 

: 274 401 ! The effect of the error handling is that the Line is 

; 275 208 ! output without justification, but with nothing removed. 

3 ef rt ! The resulting i ne may have text exceeding the right margin. 
s A ri 3 ERM (RNFCJL, 0, 0); 

: 279 U 406 ZIF DSRPLUS XTHEN 

5 Bi : 408 A - TN_EXPANDING ! Expanding topnotes? 

; U 04 BEGIN 

BRE 

: 8 at IF NOT .FNCT_EXPANDING ! Expanding footnotes? 

; 414 ' Qutput Line and page only if this is not happenin 

3 $8 415 ! inside a footnote. If it’s happening inside a footnote 

3 9 416 ! then the Line and page numbers will be the wrong ones. 


WAN AAWWANNNAAA NNN NAAN 
cccece ce 


WANA I AAR PIPINIPIPYPUPIPYUDD 2 9 = tS SS 2 OOOOOCOO 


Be Se Se Se Be Se Se Se Fe Se Se Ge Se Se Ge Se Fe Ge Ge Se Se Ge Fe Fe Ge Fe Se Ge Se Ge oe Ge Se Ge Be Ge Se Se FF Se Se Se Ge HSH S5 SESH SS SF SF Se Se Se SHS ee 
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ERM (RNFLOC, 0, 0); 
TSF PADDING = 0; 
Z1F DSRPLUS Ur 
tFI 


ee 


END; 
ZIF DSRPLUS XTHEN 
END; 


Ke - TN_COLLECTING ! Collecting topnotes? 
BEGIN 
ZF I 
al -FNCT_COLLECTING ! Collecting footnotes? 


H Output some text directly to the document. 
FS_INIT (FRA); 


0441 ZIF DSRPLUS XTHEN : 

Bee ert GCA_LINE_PEND = 0; ! This Line is going to be output, pend no more. 
0444 
0445 LOUT (); 
0446 END 
0447 ELSE 
0448 ! Save this record in the footnote file for use later. 
et BEGIN 
0451 ' Compute the number of Lines represented by this record. 
be eg ! TSF_LINES currently contains a count of the number of 
045 ! Lines that will be generated when the code generated by 
0454 ! the Gxxxx routines (see module GCODE) is ‘‘executed’’. 
Beee eg ee AND .OUTOPT_UND_SEP 
bea7 ! Add an extra Line if underlining is done by putting something 
0458 ! on an extra Line (e.g. dashes under the text). 
et TSF_LINES = .TSF_LINES + 1; 
best IF .TSF_EXT_HL NEQ 0 
page THEN 

+o7 TSF_LINES = .TSF_LINES + 1; 

5 ! Now actually save the record. 


FOOFIL (FOO_WRIT); 
END; 


ZIF DSRPLUS ZTHEN 


EN 
ELSE 
BEGIN 


RIPPOPMINPINIWINIWI NAINA WWW NAAI APIA NIN AIA AAI APP POPONINYUDIPIPIPIPINPINI AWN NNW 
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NS Set het =) 


on 


=Sep-1984 RUNOFF .SRC 
IF, TSF_UND AND .OUTOPT UND. SEP 
TSF_LINES = .TSF_LINES + 1; 
TSF_EXT_HL NEQ 0 
TSF_LINES = .TSF_LINES + 1; 


TNFIL (TN_WRITE); 
END; 


If . 
THEN 


Da « TN_EXPANDING ! Expanding topnotes? 
BEGIN 
Veen NOT .FNCT_EXPANDING ! Expanding footnotes? 


! Throw away leftovers from Line jyst outpu 
i Note that it wouldn't hurt anything to Sfoave do this. It's just that 
i it's a waste of time if footnotes are being output. 


BEGIN 

TSF_INT_HL = 0; 

TSF_EXT_HL = 0; 

TSF_INT_VL = 

TSF_NBITS = 0; 

TSF_BARS = F SE; ! Turn off change bars. 
TSF. “HBARS ALSE; 


TSF_TEXT = FALSE: ! There's nothing there now. 


TSF “Foot = 0; ! No footnotes attached to this Line. f 
ie Cogn up the MRA by moving the Last word in the buffer to the left. 


END; 


RIF DSRPLUS ZTHEN 


cc 


=PINPIPIPININI WW ANNAN NWI NIIP POP NoNoNonononononononononoporonornononyd 


WWAAAIAAWNWWNAAWWW 
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PaSsESEeS 


. 


End of OUTLIN 


OUTLIN directs output or move of TSF 
\V04-000\ 


LE 

NT 

RN BRNOOB FOOREC, FNCT 
RN FRA, GCA, MRA, OUTOPT 
RN SCA. TSF. RNFCJL 

RN RNFLOC, ENDWRD, ERM 


e 


Se 
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904 tO00 OUILIN => output full MRA, yeagee~h BBs PE: gSigs | PANNA? Ok iegage, Va-gr7 wr el 


~EXTRN FOOFIL, LOUT, PUTNDY 
~EXTRN PUTTXT, SCL, UNPUS 


-PSECT $CODES,NOWRT,2 


OFFC 00000 ENTRY QUTLIN, Save R2,R3,R4,R5,R6,R7,RB,RO,R10,- = 0247 
B GO000000G EF 9E 0000 MOVAB’ ERM, R1 : 
8 099000006 EF 9E $03 OVAB FOOFIL, R10 : 
59 000000006 EF 9E 9919 MOVAB GCA+116, R9 : 
2 000000G EF 9E 0001 MOVAB FRA, R : 
00 9006 EF 3 0 3 MOVAB FNCT+20, R7 : 
$ 0006 EF 0 MOVAB TSF, R : 
6 66 DO 0002C MOVL TSF. R + 0274 
04 14 A2 EB 0002F BLBS § 204R2), 1$ : 
3 2C A2 €E9 00033 BLBC 44(R2). 8$ + 0275 
5 62 10 00037 1$: MOVL (R2), INT_HL > 0283 
54 000000006 FF DO 00 A MOVL §@MRA, IPTR + 0284 
55 000000006 FF DO 0041 MOVL § @MRA. IADDR : 0285 
34 ag 04 00048 CLRL ©: 552(R2) ; 087 
06 67 £9 00048 LBC = FNCT+20, 2$ + 0307 
04 DD 0004 PUSHL #4 + 0309 
6A 01 FB 0005 CALLS #1, FOOFIL : 
04 0005 RET : 
1¢ FC 6A9 «EB 00054 28: BLBS GCA+112, 5$ : 0315 
08 69 £9 00058 BLBC CA+116, 3$ + 0320 
04 14 A2 €9 00058 BLBC 0(R2), 38 > 0321 
7E D4 0005F CLRL = = (SP) > 0324 
0A 11 00061 BRB 4$ ; 
0D 69 01 £1 00063 3S: BBC #1, GCAtIIG, 5$ : 0328 
09 2c «=6A2 «ED 00067 BLBC 44(R2), 5$ : 0329 
01 DD 00068 PUSHL #1 : 0332 
000000006 EF 01 FB 0006p 4$ CALLS #1, UNPUS : 
1D 08 Ag 02 €1 00074 5$ BBC #2. GCA+124, 6$ > 0346 
50 66 D0 00079 MOVL TSF, R : 
16 14 AO €9 0007¢ BLBC 20(RO), 6$ : 
50 66 DO 00080 MOVL TSF, R > 0348 
7E 0080 co 01 00 EF 00083 EXTZ2V #0, #1, 128(RO), -(SP) ; 
38 A0 DD OOOBA PUSHL  56(RO) : 
2 BB 0008D PUSHR #*M<R3,R5> : 
000000006 EF 04 FB O008F CALLS #4, PUTNDY a 
0 66 DO 00096 6$ MOVL TSF, RO > 0351 
01 2c Ad €8 00099 BLBS  44(RO), 7$ : 
4 9090 RET F 
7E 38 4 =6A0 7D 09 7$: MOVQ 56(RO), -(SP) > 0353 
18 BB QOOA PUSHR #*M<R3,R4> ; 
000000006 EF 04 FB OA, CALLS #4, PUTTXT ; 
04 000AB RET : 0277 
15 04 A7 €E8 OOOAC 8S: BLBS - FNCT#24, 9$ + 0374 
50 ry; 00 08 MOVL ‘TSF, RO : 0380 
24 Ad 04 AC vO 000B MOVL JUSTIFY, 36(RO) : 0381 
64 AO D6 000B INCL.  100(RO) : 0 8¢ 
40 AO 000000006 FF 04 Ad C3 0008 SUBL3 4(RO), @SCA+120, 64(RO) ; 038 
50 66 D 9o¢ 9$ MOVL TSF, RO : 0394 
40 A : ¢ TSTL  64(RO) ; 
: 00CB BGEG ~=s«édi8 : 
37 E8 000CD BLBS - FNCT+20, 12$ : 


directs output or move of TSF 
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yous 00 OUTNJ == output text unjustified 12-8001 382 94:56:88 RUNOFF .SRCJOUTLIN.BLI; . (3) 

; 397 3 1 Xsbttl "'OUTNJ <= output text unjustified’ ‘ 
; 98 4 i GLOBAL ROUTINE outnj : NOVALUE = : 
; 400 § 1 l+4 ; 
3 rt 2 ! FUNCTIONAL DESCRIPTION: : 
: ret 5 $ ! } Forces out the current text, without allowing it to be justified. : 
; 405 $8 1 1 ! FORMAL PARAMETERS: None ; 
; 406 05 ¢ 1! $ 
: ret 03 Z ! IMPLICIT INPUTS: None ‘ 
; 409 2 5 1! IMPLICIT OUTPUTS: None 3 
; 410 05 : 1! : 
; 411 05 1 ! ROUTINE VALUE: ; 
; ret b2a6 1 ! COMPLETION CODES: None ; 
; 41 0539 1! : 
: 414 0540 1 ! SIDE EFFECTS: None . 
> 415 0541 1! 3 
: 416 8266 1 !-- $ 
: 417 05435 1 $ 
> 418 0544 BEGIN : 
; 419 0545 3 
; 420 0546 IF ( NOT .SCA_FC) : 
: 421 0547 OR ( NOT .SCA_FILL) . 
; 4 ¢ 0548 N 3 
; 4 0549 ENDWRD (FALSE, FALSE, FALSE) ‘ 
> 424 0550 ; 
3: 425 0551 BEGIN : 
: 426 0236 ; 
3; 427 0553 4 IF (.SCA_WRD_FOOTW NEQ 0) ! Footnotes attached to this word? ‘ 
: 428 0554 ; THEN ; 
; ? ? Bee2 ? ! Take care of pending footnote. : 
> 431 0557 4 TSF _FOOTW = .TSF_FOOTW + .SCA_WRD_FOOTW; ! Update count of footnotes associated with this Lin ; 
; $36 0558 4 SCA_WRD_FOOTW = 0 ! Make sure footnotes don't get counted twice : 
: 43 0559 END; : 
3; 434 B2e0 : 
3; 435 561 ! is there an index entry associated with this word? : 
> 436 0368 IF .SCA_WRD_F_XTN NEQ 0 : 
; 437 056 THEN : 
; 438 0564 ! Take care of pending index entry. : 
3; 439 565 4 BEGIN . 
: 440 206 4 : 
> 441 567 4 IF_.TSF_FIRST_XTN EQL 0 : 
: «44 568 4 N ; 
> 46 369 4 TSF_FIRST_XTN = .SCA_WRD_F_XTN; : 
> 445 571 4 TSF_LAST_XTN = .SCA_WRD_L_XTN; : 
3 (44 278 3 : 
: 46 57 END; : 
; 448 574 : 
> 449 323 SCA_URD_F_XTN = 0; : 
: 450 2 SCA-WRD-L-XTN = : 
; 451 57 OUTCIN TFALSE); ' Don't ust {ty Line. ; 
; 45 o2°8 TSF _JUST_ALG = 0; ' Reset justification algorithm. : 
; «645 54 SCA_CONT = FALSE; ' Don't allow concatenation (.NO SPACE) : 


TLIN directs output or move of TSF 
ites QUTNJ =-- output text Se lustitied 


> 454 0580 1 END; 


000C¢ 
OIG EE 
0 FF cs E 
0D FF44 be re 
000000006 EF : rs 
nt: 
<R one 
6s D4 
nen 
" os BE 
ace d 
toe ot a 
7E 04 
FESS = CF 01 4 
50 63 0D 
64 aG 04 
80 A Be 


; Routine Size: 96 bytes, Routine Base: S$CODES + 0165 


3; 455 


0581 1 


—s 
bad 
oe 


La 
bed 


Ww 
tad 


OOCCOCCCOCSOOOCOOOoOOoSooo 


we 
Pe 


SOoOCoCoooooQoQooooooQoQoooooooooooe 


SOoOOOCOSCSOOOSCOOSCOOSOSOOOSOOOSOOoOSOOSOSoO 


Cooooocecoo 
PAINS & ar nee og pg eet | 
FAOODA BO NWA MD OVW BOM SB NVITNO SP WNNO 


6c 15:69:85 — ERUnorresneSourLin:ect: 


! End of OUTNJ 


OUTNJ, Save R2,R3 
TSF, R 


sCai29 ; Re 
SCA+148. 1 
aSCa+i04, 2$ 
=(SP) 
-(SP) 

#3, ENDWRD 
scar292, R1 
$ 


TSF, RO 
5.) (RO) 


Sg CRO} 
0. 60(RO) 


NBII NVKDEu Iwo w 


Se 


—- ——-——_—_-——- 


i 


¥04=000 duty == 


H 13 
“ES Sutput text Justi tied 1eSep=198e 15:69:95 ERUNoFFeSRESOUTLIN-BLI: i 


; 457 § 1 Xsbttl ‘OUTJ =- — text justified’ 

: : 8 ? 1 GLOBAL ROUTINE outj : NOVALUE = 

: 460 5 1 f+ 

3 $8) ; ! FUNCTIONAL DESCRIPTION: 

; te7 288 ! } Forces out the current text, causing it to be justified. 

; 465 239 1 ! FORMAL PARAMETERS: None 

; reg 2 ae 

; 46 8 1 ! IMPLICIT INPUTS: None 

; 468 935 1! 

; 469 94 1! IMPLICIT OUTPUTS: None 

; 470 0595 1! 

; 471 238 1 ! ROUTINE VALUE: 

; 47 597 1 ! COMPLETION CODES: None 

; 47 598 1! 

; 4754 B28 1 } SIDE EFFECTS: None 

> 475 600 1! 

: 47 0601 1 !-- 

; 47 +a) 1 

; 478 060 BEGIN 

: 479 0604 

; 480 0605 IF ( NOT .SCA_FC) 

; 481 OR ( NOT .SCA_FILL) 

; 48 060 THEN 

; 48 ENDWRD (FALSE. FALSE, FALSE) 

; 484 ELS 

; $33 BEGIN 

3 re 4 IF (.SCA_WRD_FOOTW NEQ 0) ! Footnotes attached to this word? 
; 488 ; THEN 

3 rt i : Sr care of pending footnote. 

; 491 “ TSF _FOOTW = .TSF_FOOTW + .SCA_WRD_FOOTW; ! Update count of footnotes associated with this Lin 
3 re & aa ta = 0 ! Make sure footnotes are not counted twice 
3 494 

3 495 IF .SCA_WRD_F_XTN NEQ 0 

; $38 THEN 

; 49 $ ! Take care of pending index entry. 

; 498 & BEGIN 

; 499 4 

; 500 4 IF_.TSF_FIRST_XTN EQL 0 

; 5301 4 THEN 

; 0¢ 4 TSF_FIRST_XTN = .SCA_WRD_F_XTN; 

; 04 4 TSF_LAST_XTN = .SCA_WRD_L_XTN; 

; 305 END; 

; 08 END; 

: 308 SCA_URD_F_XTN = 0; 

; 309 SCA_WRD ' XIN = 0; 

: 510 OUTCIN TTRUE); ! Justify Line 

; 31 TSF _JUST_ALG = 0; : Reset Justification algorithm. 
$ i SCA_CONT = FALSE; : Don’t allow concatenation (.NO SPACE) 
3; «651 END; ! End of OUTJ 


TLIN directs output or move of TSF 15-50 Sep-19 AX-11 Bliss-32 V4.0-74 P 14 
yousou0 OUTJ == output text justified ~pee713Be 9h:86:9h YANN GT Ok iegc3e ve-gr7 — 


000¢ ENTRY QUTJ. ave R2,R3 ; 
5 990000 G EF aE Mii MOVAB ; 
00000006 EF ; MOVAB schia9 : Re : 

6 FF C2 E 19 BLBC SCA+14 : 

D FF 44 p ES 1 BLBS as cast 4, 28 ; 

— 7C OOO1A 1$ CLRQ 3 

7E 04 O001C CLRL =(5P) ; 

000000006 EF 9 re i CALLS 43. ENDWRD : 
51 é D 0 2$ MOVL scar292, R1 : 

1 A BEQL $ : 

50 § 1) 02C MOVL TSF, RO : 

oc A0 . € O2F ADDL2 R1, 1g ino? : 

62 D4 000 3 CLRL sCheg 2 : 

51 04 =A 09 035 3$ MOVL Scat 96, R1 ; 

1 1 039 BEQL $ 3 

50 63 00 00038 MOVL TSF, RO ; 

38 «6A DS 0003E TSTL  56(RO) ; 

04 1 90041 BNEQG 6 4$ : 

38 AO 1D 0045 MOVL RI, 561 ) : 

C AO 08 Ag p 00047 4$: MOVL SCA+300, 60(RO) ; 

04 Ad 7 9004¢ 5$: CLRQ SCA+296 : 

01 DD 0004F PUSHL #1 3 

FDES CF 01 FB 00051 CALLS #1, OUTLIN ; 
50 63 DO 00056 OVL TSF, RO F 

64 Ap D4 00059 CLRL  100¢RO) : 

80 A2 04 0005C¢ CLRL = SCA+164 : 

04 0005F RET : 


; Routine Size: 96 bytes, Routine Base: $CODE$ + 01C5 


3; 514 0639 1 


es 
=a 
= 
z 


— oe 


WAWAW 
VISWN ("OO ODNOUS WN" ODONO 


LUD LV LV DVSUSUSUSVSUSVST SUSU US USS ISTP SSIS SISISISTSIOSIIISI 
PPPTGIAUIVIUITIE BEEPS PEP W 
ODONOUE 


NISSHGSALARVLS 


ccccccccc 


cc 


ou 
c- 
zo 


POAAO 
SEEPS 35 


rs 


WR" OOONOAULS AR "OQ OONOULSWN—O Oe 


PE QAR AAAA AAA AO 
APAQEMAAMVIVIUVIUIUA ES & & 


SSSSSS3833S33333333333333. 


Qe 


== remove carrage control from TSF 


POROPOPOPOPOPOPORPOPOPONONONONONOPONOPUNUNONONUPOPOPOPUNONONONONONNPN 9 
. 


13 
output or move of TSF 1b-5e -1984 01:22: AX-11 Bliss-32 V4.0 
: 1 ~3007 138% 94:58:98 RUNOFF -SRCJOUTLIN.B 
Zsbttl ‘OUTCRG -=- remove carrage control from TSF‘ 
GLOBAL ROUTINE outcrg : NOVALUE = 
14 


144 
} FUNCTIONAL DESCRIPTION: 


Clears out carriage control sequences from the TSF. 
FORMAL PARAMETERS: = None 
IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 
COMPLETION CODES: None 
! SIDE EFFECTS: None 
BEGIN 
! This is a record full of ‘‘normal"’ text to be output. 
FS_INIT (FRA); 
TSF_JUSTIFY = FALSE; 
TSF_PADDING = 0; 
ZIF DSRPLUS XTHEN 
: af collecting topnotes, go through OUTNJ to make sure blank Lines 
! get rut in the right place. 
IF .Tw COLLECTING ! Collecting topnotes? 
OUTNJ () 
ELS 
BEGIN 
xF I 
: if cothogetng footnotes, go through OUTNJ to make sure blank Lines 
' get put in the right place. 
IF  .FNCT_COLLECTIN ! Collecting footnotes? 
OUTNJ () 
LOUT (); 
ZIF DSRPLUS ZTHEN 
END; 
2F I 
! Throw away leftovers from Line just output. 
TSF_INT_HL = Q; 
TSF_EXT_HL = 0; 
TSECNBITS = 05° 
= 0; 
TSF"BARS = FALSE; ! Turn off change bars. 
TSF7H_BARS = FALSE; 
TSF-JOS_CNT = 0; 


-74 
Li; 


Sete Ge Se Geese Ge eee 
—~ 


3; Routine Size: 


; 582 


ct 
RG 


119 bytes, 


0706 1 


Ss output or move of TSF 
“= remove carrage control from TSF 


TSF_FIRST_XTN = 0; 
TSFILAST RIN = 0; 
TSF-TEXT = FALSE: 
TSF-ADJUST = 0; 
TSF-FOOTW = 0; 
FS_INIT (MRA): 
SCK_WRD_PNTR = .FS_START (MRA); 
TSF-NEXT_REG = 0; 
END; 
009¢ 
53 990000006 EF 9E 
0000006 EF 9E 
of oA p4 
4 10 A 
06 =A 62 D 
5 63 D 
24 Ad D4 
40 AO D4 
07 000000006 cf E9 
FFIO. 3— CF 9 FB 
000000006 EF 09 FB 
0 6 p0 
60 7C¢ 
18 AO D4 
7c =A 1 BA 
0080 CO 1 BA 
20 AO D4 
8 Ad 7C 
0 AO D4 
AO D4 
8 ad 7C 
51 000000006 EF DO 
¢ 6Al (D4 
61 10 Al 9 
04 Al 61 D 
000000006 _ EF 61 D 
0088 CO D4 


Routine Base: $CODE$S + 0225 


DOABAANAE BE RWWA 3 = 2 2 OOO 


NWUOOOWOS FUN MO OVO &- MD NWOOWO 
we 
oon 
>a>Y 
-o- 
- 
“nw 


~~ 
oa 
»@ 


1fBen-1964 01:38:92 


! There's nothing there now. 


AX-11 Oh ian i oree 
RUNOFF ..SRCJOUTLIN.BLI; 


! End of OUTCRG 


N— 


WDDOAND-~OOON—— £ DWM 
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. (7) 


Se Se Se Se Se Ge Se Se Ge Se Ge Se Ge Se Ge Ge Ge Ge Se Ge Fe Ge Se Ge Ge Fe Se Fe Se Se 
i=) 
o 
>] 
o 


z 


C0 00: 
wi 


OWOCOO0O0000MM0 


PPA SISISIVIVI 


609 


WWW A NTIRIRNIIVIUNIUN SS 


PDEA AAAAAAAAAA AA AAA AAA AAA AAA OH 
SSO WN =O OONOUE WN“ OVONOULSWN—O 


AAO 


>o 
“er 


SNS NSS OC 


AIA IAI POPUNIPINIPINININI 9 SS SOOO 


NOMEN 9 OD NOAOUE WN 8 OD NA UE WN 9 OONAUE WN OCONOULSW—O0O~ Ve 


Dd aot et at ek tt he eh ho hahahah a) 


cccccccccccccceccccce 


SOOEOOCOCOCOOOOOOSOSOSOSCOOOSOSOSSOSSOOSSOCOCOOOOOOOCOOOOOOOOOOOOOOCOO Ca 


PAPAIN 


SSN NNN NNN SSNS 


POR IROPOPOROROPONONOPOPONNONONOPONONOPEPOPONPONINUNIININNNY = 


OAAO 
WN —O Ooo 


“ 


13 
utput or move of TSF 1b-5¢ -1984 01:22: AX-11 Bliss-32 V4.0-7 
rects pass-though record 1 ~Sep-19 4 94:55:48 RUNOFF SRESOUTLIN: BL f 


Zsbttl ‘OUTPAS -- asregys peseethev h record’ 
u 


GLOBAL ROUTINE outpas ( 


144 


words, address, xtn_pointer, type) : NOVALUE = 


i FUNCTIONAL DESCRIPTION: 


<I1F 


ve 
~ 
a 


Directs a passthrough record to the appropriate location. 


FORMAL PARAMETERS: 


fullwords = Number of fullwords in the vector pointed to by address. 
address - Address of the block of deta to write. 
type = Minor record type, as defined in FOOREC.REQ or TNREC.REQ. 
xtn_pointer = Offset into the passthrough record to apply in 
order to find the transaction number. 
IMPLICIT INPUTS: None 


IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


i SIDE EFFECTS: None 


BEGIN 

DSRPLUS ZTHEN 

i af topnotes are being collected, then write the record to the topnote 
! file. Otherwise, direct the record to the appropriate utility. 


i] 

IF .TN_COLLECTING 

THEN | 
!' Set up some fields in the record header and 
write the record to the work file. 
BEGIN 
TNREC_MAJOR_TYPE = TNREC_MAJ_PASS; 
TNREC“MINOR-TYPE = .TYPE: 
TNREC-XTN_PTR = .XTN_POINTER; 
TNREC_ADDRESS = ADDRESS; 
TNREC"RECORD_SIZE = .FULLWORDS; 

IL” (CTN_PWRITE) 

END 

ELSE 
BEGIN 


! If footnotes are being collected, then write the record to the footnote 
! work file. Otherwise, direct the record to the appropriate utility. 
Hg MCT COLLECT ING 


' We are between .FOOTNOTE and .END FOOTNOTE 
i Write the record to the work file. 


. 
e 
. 
om 
” 
o 
. 
e 
. 
e 
° 
cm 
. 
v 
. 
. 
o 
a 
+ 
e 
. 
a 
: 
e 
o 
. 
eo 
. 
. 
7 
2 
7 
. 
. 
eo 
. 
e 
* 
a 
. 
. 
a 
2 
° 
o 
. 
o 
7 
° 
. 
a 
. 
. 
° 
. 
o 
o 
. 
e 
” 
” 
- 
cm 
. 
a 
. 
e 
- 
o 
° 
© 
o 
e 
- 
e 
. 
Oo 
. 
a 


644 


Sete Ge Se Geese Gee Se Ge See Se Ge Ge Se Ge Seas 
5 et tat 
ODONAOVS WT "OODONOu 


PAA AAAAAAAAOAAS 
DIPS DIVIIUIVIVIVA & 


; Routine Size: 


660 
661 
662 


M13 
directs output or move of TSF S$ep-1984 AX-11 Bliss-32 V4.0-74 
OUTPAS == directs pass-though record 12: 308-1382 9}: ME $5 RUNOFF. SROJOUTLI IWiBL I 24 
764 BEGIN 
765 ! First set up pe some fields in the record header. 
166 FOOREC MAJOR. YPE = FOOREC_MAJ_PASS; 
76 FOOREC"MINOR-TYPE = .TYPE; 
76 OOREC"XTN_PTR = :XTN POINTER; 
i OOREC "ADDRESS = ADDRESS: 
07 FOOREC-RECORD SIZE = .FULLWORDS; 
771 FOOF IL” (FOO_PORIT) 
og eLsee™ 
0774 ' Not between .FOOTNOTE and .END egorngye. Direct the record to 
775 i the appro riate .B%% file and write the proeey re ord. 
£06 $XPO_PUT (I0B = BRNOOB, BINARY_DATA : " FULLWORDS, CADDRESS)) : 
0778 2 XIF DSRPLUS %THEN 
0779 3 
0780 2 XF1 
0781 
0782 1 END; ! End of OUTPAS 
.EXTRN XPOSPUT, XPOSFAILURE 
000¢ 00000 .ENTRY OUTPAS Saye R2,R3 
53 000000006 EF 9€ 0002 MOVAB 108$+68, R 
52 000000006 ai 9€ 0000 MOV FOOREC, R2 
5E 8 ¢ 9019 SUBL2 #8, SP 
21 000000006 ef ES 0001 BLBC ENCT +20 1$ 
6 2 DO OOO1A MOVL #2 FOO 
06 =A 10 AC D0 0001 MOVL TYPE, FOOREC+4 
OC A OC AC D6 00 MOVL \TN BoINTER FOOREC+12 
10 A 08 AC 00 000 MOVL ADDRESS FOOREC+1 
08 A 04 AC 00 0002C MOVL LUORBS FOOREC+8 
OA DD 00031 PUSHL 
000000006 _ EF 1 FB 00 : CALLS #1, FOOFIL 
6 04 Ac 04 AS 8 B 1$: MULW3 #4, FULLWORDS . $I0BSOUTPUT 
02 AE 02 90 00040 MOVB #2, $10B$0U TPUT+ 
03 AE 0 90 0 44 MOVB $10BS0UT PUT+ 
04 AF 08 AC p 48 MOVL *DBR RESS SY OBSOUTPUT#< 
6 oe ; 0040 MOVAB $108 oufPUT. 10B$+68 
E8 AS ; 50 MOVB #7, I0B$+44 
000000006 EF F 4 PUSHAB XPOSFAILURE 
p4 A CLRL = = (SP) 
BC AS OF C PUSHAB 1088 
000000006 EF 03 FB F CALLS #3, XPOSPUT 
04 00066 ET 
103 bytes, Routine Base: S$CODE$ + 029C 


7 
Ore 1 END 
785 0 ELUDOM 


! End of module 
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9° 6a) 


ooooo°co 


°o 
N 
~N 
o 


0782 


<2 


Lines/CPU Min: 
onenee (chy tins 234 

ry Us 156 pe 
Compi ation Complete 


mn Time 8 :18. 
ple tues 239.1 
? . 
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TLIN ts out ut or move of TSF Sep 4 01:22: AX-11 Blisg-32 V4.0-74 P 9 
yO45000 -- directs pass-though record 12: -Sep- 071382 94:69:95 RUNOFF’ SRETOUTLIN: BL 124 il v 
PSECT SUMMARY 
; Name Bytes Attributes , : 
; SCODES 771 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ‘ 
: Library Statistics : 
; o------- Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped Time ; 
;  _$255S$DUA28:(SYSLIBIXPORT.L32;1 9 9 1 252 0:00.1 3 
; 7$255$pua28: RUNOFF SRCIDSRLIB.L32;1 1328 33 : 86 30:00:35 : 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:OUTLIN/OBJ=OBJ$:OUTLIN MSRC$:OUTLIN/UPDATE=(ENH$:OUTLIN) : 

sizes 771 code ; 0 data bytes : 


AL EQUIPMENT CORPORATION 
DENTIAL. AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


034 ae 


